home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
misc
/
fserv139c_pl2.lha
/
FServ
/
Install-FServ
< prev
next >
Wrap
Text File
|
1994-10-24
|
4KB
|
148 lines
; script to Install FServ
; Should be run from WorkBench by double-clicking on the icon
(set version2 36)
(complete 0)
(set @default-dest "DH0:")
(set answer1
(askchoice
(prompt "Wo soll FServ installiert werden?")
(choices "Hard Disk" "Floppy Disk")
(help "Wenn Du Hard Disk auswählst, wird FServ auf die Festplatte "
"installiert. Du wirst nach einem Verzeichniss gefragt, wo da "
"Packet installiert werden soll. Vorgabe ist DH0:. Ein Verzeichniss "
"mit dem Namen `FServ` wird dort erzeugt. \n\n"
"Im Verzeichniss `Turbo30` befindet sich eine 68030er-Version der "
"Software, die von Hand nachinstalliert werden muss.\n"
)
(default 0)
)
)
(if (= answer1 0)
(
(set dest2 (askdir (prompt "Bitte das Zielverzeichniss für FServ Verzeichniss wählen")
(default @default-dest)
(help "Wähle eine Partition oder ein Verzeichniss in "
"das FServ installiert werden soll. Dieses Programm "
"wird ein Verzeichniss mit dem Namen `FServ` dort "
"erzeugen und die File dorthin kopieren."
)
)
)
(set dest1 (tackon dest2 "FServ"))
(set dest3 (tackon dest1 "Help"))
(set @default-dest dest1)
(message "\n\nErzeuge das Verzeichniss in "
dest1
)
(makedir dest2 (safe) (infos))
(makedir dest1 (safe) (infos))
(makedir ("%s/Help" dest1) (safe))
(makedir ("%s/Programme" dest1) (safe))
(set parts
(askoptions
(prompt "Was soll installiert werden?")
(choices "FServ"
"FSManager"
"FSConfig"
"On-Line Hilfe"
"Hilfsdateien"
)
(help "Du musst nicht das komplette Packet installieren. "
"FSManager ist das Programm zum komfortablen verwalten "
"der Programme auf dem Server, FSConfig ist das Konfigurations "
"Programm, FServ ist der FileServer selber. Die Hilfsdateien "
"werden von FServ bei Anforderung der Hilfe gesendet.\n\n"
)
)
)
)
)
(complete 10)
(if (IN parts 1)
(
(set error (trap 4
(copyfiles
(source "FServ")
(dest dest1)
(all)
)
))
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
)
)
(complete 25)
(if (IN parts 0)
(
(set error (trap 4
(copyfiles
(source "Help")
(dest dest3)
(all)
)
))
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
)
)
(complete 70)
(if (IN parts 2)
(
(set error (trap 4
(copyfiles
(source "FSManager")
(dest dest1)
(all)
)
))
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
)
)
(complete 85)
(if (IN parts 3)
(
(set error (trap 4
(copyfiles
(source "FSConfig")
(dest dest1)
(all)
)
))
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
)
)
(complete 100)
(if (IN parts 4)
(
(set error (trap 4
(copyfiles
(source "Dok")
(dest dest1)
(all)
)
))
(if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
)
)
(if (= answer1 1)
(
(message "\n\nEine Installation auf Disketten ist leider "
"zur Zeit noch nicht vorgesehen und macht "
"auch wenig Sinn!"
)
)
)